home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / shells / scsh-0.4 / scsh-0 / scsh-0.4.2 / debug / mini-start.scm < prev    next >
Text File  |  1995-10-13  |  743b  |  20 lines
  1. ; Copyright (c) 1993, 1994 Richard Kelsey and Jonathan Rees.  See file COPYING.
  2.  
  3. ; Start up a system that has reified packages.
  4. ; COMMAND-PROCESSOR might be either the miniature one or the real one.
  5.  
  6. (define (start structs-thunk)
  7.   (usual-resumer
  8.    (lambda (arg)
  9.      (initialize-interaction-environment! (structs-thunk))
  10.      (command-processor #f arg))))
  11.  
  12. (define (initialize-interaction-environment! structs)
  13.   (let ((scheme (cdr (assq 'scheme structs))))
  14.     (let ((tower (delay (cons eval (scheme-report-environment 5)))))
  15.       (set-interaction-environment!
  16.          (make-simple-package (map cdr structs) #t tower 'interaction))
  17.       (set-scheme-report-environment!
  18.          5
  19.      (make-simple-package (list scheme) #t tower 'r5rs)))))
  20.